SOUND1
QUIT>
GETANOTHER
CUSTOMERb
ADDRESSg
STATE
PHONEC
SUBDATE
CREDITCARD
CARDTYPE*
CARDNUMBER
EXPDATE
LICENSE
ITEMONE
PRICEONE
ITEMTWO
PRICETWO7
	ITEMTHREEC
PRICETHREE
ITEMFOUR
	PRICEFOUR
ITEMFIVE
	PRICEFIVE
ITEMSIX<
PRICESIXH
	ITEMSEVEN
PRICESEVEN
SUBTOTAL(
TOTALv
CHOICE
LEAVEONE
RETRIEVEONE
	MESSAGETO
LINEONE;
LINETWOH
	LINETHREEV
CALENDAR
MESSAGEFROM,
MESSAGECVS
SAVEMESSAGE
	DISPLAYIT
WHATTODOm
PRINTIT
PRINT
NEXTONE
	SEARCHFOR
RANDON
	RETRIEVE2
RETRIEVETWO
RETRIEVEo
GETIT
DISPLAY
TALLY
	SKIPTALLYb
SKIPHEADER
PAGEADVANCE
PAGERADVANCE,
LINETWOCHECKr
LINETW0CHECK
OPENFILE\
SKIPLINETWOCHECK2
SKIPLINETHREECHECKp
LINETHREECHECKV
	SAVEORNOT
SAVEO
	SKIPBLOAD
ORIGMESSAGETO
ORIGLINEONE8
ORIGLINETWO
ORIGLINETHREE$
ORIGCALENDARb
ORIGMESSAGEFROM
ERASEALL<
FINDIT
SLEEP2
ERASED
FINDNEXT
SAVEORNOT2]
SKIPTALLY2
	ORIGLINE3
NUMBER
DONECOUNTINGx
FOUND
	SKIPPRINT
INCREASE0
	SKIPTHREE
SKIPFOUR
	SKIPTFOUR
COUNTIT
THREEN
Errorhandler
AWAITKEY
MENUB
cCLEAR
ERASEONE
ERASED2
ALTER
	WHATATODO
SAVED
HOLDON
HOLDNO
RUSURE
RUSURE2
SHARWARE
SHARE
RESTART
WHICHPRINTER
WHICHPRINTER2
PRINTER
FIGUREIT
ADVER.001"
ADVER.002"
ADVER.003"
ADVER.004"
ADVER.005"
MESSAGE.MEN"
  WRONG ENTRY  "
routine to RETRIEVE message
MESSAGE.RET"
  TOO LONG  
______________ And Press "
 ENTER NAME  "
______________ "
NAMECHEK.RECd
MESSAGE.REC"d
?             
X             q
                    YOU HAVE
RECORD(S)                  "
MESSAGE.REC"d
 ALL RECORDS PRINTED "
_____________________"
 NO RECORDS FOR 
_________________"
?             
X             q
corrects goofy negative numbering when only 1 record exists for a retrieved database
                      RECORD #
                    
                                            
 PRINTER ADVANCE IS RE-SET! 
                             "
MESSAGE.REC"d
 ALL OF THE DATABASE HAS BEEN ERASED
 Press E when done Selectively printing! "
                 THE DATABASE NAME IS: "
DATE RECORD WAS ENTERED: "
                                                 "
                                                 "
GENERAL LOCATION - "
IF TALLY# >= FIGUREIT# THEN GOTO SKIPTALLY22
MESSAGE.ENT"
______________
  TOO LONG  
______________       "
 ENTER NAME! "
______________      
  TOO LONG  
_________________________________________________    "
 PLEASE ENTER DATA! 
_______________________"
  TOO LONG  
_________________________________________________    "
 THIS ENDS ENTRY - Y/N? 
_________________________"
 THEN PLEASE ENTER YOUR TEXT! 
______________________________
  TOO LONG  
_________________________________________________    "
 THIS ENDS MESSAGE- Y/N? "
_________________________"
 THEN PLEASE ENTER YOUR TEXT! 
______________________________
_________________________"
 THEN PLEASE ENTER YOUR TEXT! 
______________________________
  TOO LONG  
______________          
                 PRESS S TO SAVE, OR R TO REDO MESSAGE!                         
                                                                                
DATA.DATd
12347"
MESSAGE.REC"d
      Printer NOT ON, or OUT OF PAPER.  Check and press any key to continue!    
                                                                                
  THIS SINGLE RECORD HAS BEEN ERASED  
 Press Y to Delete, or N to Abort 
                                   "
SHARWARE.000
LINES.000"
MESSAGE.RET"
MESSAGE.RET"
MESSAGE.RET"